"! Info:
Base object class. All other objects in Foxtalk inherit from this class.
Examples:

"
nil subclass: Object [
<category: 'Library-Core'>
"! Info:
Return true if this object is equal to arg. Depending on the object this can mean different things.

Examples:
"
= arg [
^ self == arg
]

"! Info:
Return true if this object is exactly the same as arg (they both point to the same location in memory), otherwise false

Examples:
"
== arg [
<objectIdentity self arg>
]

"! Info:

Examples:
"
basicSize [
<objectSize self>.
self primitiveFailed
]

"! Info:
Return the class of this object

Examples:
"
class [
<objectClass self>
]

"! Info:
Raise an exception.
Examples:

"
error: err [
(Smalltalk at: #excpHandler) value: err.
]

"! Info:
Fatal error handler. Stop execution and signal error

Examples:
"
fatalError: err [
<error err>
]

"! Info:

Examples:
"
in: object at: index [
<arrayAt object index>.
self primitiveFailed
]

"! Info:
Initialise system exceptions and install default handler.
Examples:

"
initExceptions [
Smalltalk := Dictionary new.
Smalltalk at: #excpHandler put: [ :err |
	self fatalError: err.
].
Smalltalk at: #defHandler put: 
	(Smalltalk at: #excpHandler).
]

"! Info:
Return true if this object is an instance of aClass (or any of the superclass chain)

Examples:
"
isKindOf: aClass [
| cls |
cls := self class.
[ cls notNil ] whileTrue: [
	cls == aClass ifTrue: [ 
		^ true 
	].
	cls := cls superclass 
].
^ false
]

"! Info:

Examples:
"
isMemberOf: aClass [
^ self class == aClass
]

"! Info:
Return whether we are the nil object

Examples:
"
isNil [
^ false
]

"! Info:
Return whether we are not the nil object

Examples:
"
notNil [
^ true
]

"! Info:

Examples:
"
primitiveFailed [
self error: #sysPrimFail
]

"! Info:
Print out ourselves

Examples:
"
print [
<stringPrint (self printString)>
]

"! Info:
Print out ourselves, then print a newline character

Examples:
"
printNl [
self print. 
Char newline print
]

"! Info:

Examples:
"
printString [
^ self class printString
]

"! Info:

Examples:
"
respondsTo: aMessage [
^ self class allMethods includes: aMessage
]

"! Info:

Examples:
"
subclassResponsibility [
self error: #sysSubclassResp
]

"! "
try: tb except: eb [
Smalltalk at: #excpHandler put: [:err|
	^ eb value.
].
tb value.
Smalltalk at: #excpHandler put: 
	(Smalltalk at: #defHandler)
]

"! "
yourself [
 ]

"! Info:
Return true if this object is not equal to arg. Depending on the object this can mean different things.

Examples:
"
~= arg [
^ (self = arg) not
]

"! Info:
Return true if this object is not exactly the same as arg (the point to different locations in memory)

Examples:
"
~~ arg [
^ (self == arg) not
]

]

"! Class methods for Object "
Class subclass: MetaObject [
<category: 'Library-Core'>
"! Info:
Change data field in object, used during initialization returns the intialized object

Examples:
"
in: object at: index put: value [
<arrayAtPut value object index>
]

]

